home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO023.dsk / MOTION.bas < prev    next >
BASIC Source File  |  2012-02-16  |  3KB  |  80 lines

  1. 0  HOME : HGR : HCOLOR= 3: CALL 62450
  2. 2 X% = 70:Y% = 70: GOSUB 1000
  3. 4  GOSUB 1000
  4. 6  VTAB (21): PRINT "This apple is at rest.  It will remain  at rest unless it is forced to move."
  5. 8  FOR I = 0 TO 4000: NEXT 
  6. 10  HOME : CALL 62450
  7. 12  VTAB (21): PRINT "This apple will continue in a uniform   motion in a straight line...."
  8. 14  FOR I = 70 TO 180
  9. 16 X% = I: HCOLOR= 3: GOSUB 1000
  10. 18 X% = I: HCOLOR= 0: GOSUB 1000
  11. 20 I = I +5: NEXT 
  12. 22  HOME : CALL 62450
  13. 24  VTAB (21): PRINT "...unless an outside force is applied."
  14. 26  FOR I = 70 TO 100
  15. 28 X% = I: HCOLOR= 3: GOSUB 1000
  16. 30 X% = I: HCOLOR= 0: GOSUB 1000
  17. 32 I = I +5: NEXT 
  18. 34 Y% = 70
  19. 36  FOR I = 100 TO 180
  20. 38 X% = I: HCOLOR= 3: GOSUB 1000
  21. 40 X% = I: HCOLOR= 0: GOSUB 1000
  22. 42 Y% = Y% +4:I = I +4: NEXT 
  23. 50  TEXT : HOME : HCOLOR= 3: CALL 62450
  24. 52  PRINT : PRINT 
  25. 54  PRINT "According to Newton's LAW of INERTIA,   the apple should have continued along   a straight line."
  26. 56  PRINT : PRINT : PRINT 
  27. 58  GOSUB 202
  28. 60  PRINT "Why, then, did it fall??"
  29. 62  PRINT : PRINT 
  30. 64  FOR I = 0 TO 3300: NEXT 
  31. 68  PRINT "Remember..."
  32. 70  PRINT "     the law also stated that a body in      motion will remain in motion            UNLESS AN OUTSIDE FORCE IS              APPLIED."
  33. 72  PRINT : PRINT : PRINT 
  34. 73  GOSUB 202
  35. 74  PRINT "In the case of an apple on Earth, that  outside force is GRAVITY."
  36. 76  PRINT : PRINT : GOSUB 202
  37. 78  PRINT "Press any key for an explanation of     GRAVITY!"
  38. 80  GET KY$
  39. 82  TEXT : HOME 
  40. 84  PRINT : PRINT : PRINT 
  41. 86  PRINT "GRAVITY made the apple fall."
  42. 88  PRINT : PRINT : GOSUB 206
  43. 90  PRINT "GRAVITY is the force of attraction      toward the center of the Earth."
  44. 92  PRINT : PRINT : GOSUB 202
  45. 94  PRINT "The effect of gravity on a body is      called WEIGHT."
  46. 96  PRINT : PRINT : GOSUB 206
  47. 98  PRINT "WEIGHT is NOT a property of INERTIA.    It is the effect of GRAVITY on a body."
  48. 100  PRINT : PRINT : GOSUB 202
  49. 102  PRINT "MASS, NOT WEIGHT is a measure of        INERTIA!"
  50. 104  PRINT : PRINT : GOSUB 202
  51. 106  PRINT : PRINT "Press any key to see an example of MASS versus WEIGHT."
  52. 108  GET KY$
  53. 110  PRINT  CHR$(4);"run moon"
  54. 200  END 
  55. 202  FOR I = 0 TO 5500: NEXT : RETURN 
  56. 206  FOR I = 0 TO 3500: NEXT : RETURN 
  57. 998  END 
  58. 1000  HPLOT X% +3,Y% TO X% +4,Y%
  59. 1002  HPLOT X% +3,Y% +1 TO X% +5,Y% +1
  60. 1004  HPLOT X% +10,Y% +1 TO X% +11,Y% +1
  61. 1006  HPLOT X% +3,Y% +2 TO X% +6,Y% +2
  62. 1008  HPLOT X% +10,Y% +2 TO X% +11,Y% +2
  63. 1010  HPLOT X% +4,Y% +3 TO X% +7,Y% +3
  64. 1012  HPLOT X% +9,Y% +3 TO X% +10,Y% +3
  65. 1014  HPLOT X% +4,Y% +4 TO X% +10,Y% +4
  66. 1016  HPLOT X% +1,Y% +5 TO X% +16,Y% +5
  67. 1018  HPLOT X%,Y% +6 TO X% +17,Y% +6
  68. 1020  HPLOT X%,Y% +7 TO X% +17,Y% +6
  69. 1022  HPLOT X%,Y% +8 TO X% +17,Y% +8
  70. 1024  HPLOT X%,Y% +9 TO X% +17,Y% +9
  71. 1026  HPLOT X% +1,Y% +10 TO X% +16,Y% +10
  72. 1028  HPLOT X% +1,Y% +11 TO X% +16,Y% +11
  73. 1030  HPLOT X% +1,Y% +12 TO X% +16,Y% +12
  74. 1032  HPLOT X% +2,Y% +13 TO X% +15,Y% +13
  75. 1034  HPLOT X% +2,Y% +14 TO X% +15,Y% +14
  76. 1036  HPLOT X% +3,Y% +15 TO X% +14,Y% +15
  77. 1038  HPLOT X% +4,Y% +16 TO X% +13,Y% +16
  78. 1040  HPLOT X% +5,Y% +17 TO X% +7,Y% +17
  79. 1042  HPLOT X% +10,Y% +17 TO X% +12,Y% +17
  80. 1044  RETURN